home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Games Machine 75
/
XENIATGM75.iso
/
Shareware
/
X-Setup 5.0
/
_SETUP.1
/
XQ IE Options 1.xpl
< prev
next >
Wrap
Text File
|
1999-07-21
|
2KB
|
69 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="6"
"COUNT"="3"
"UIPATH"="Internet\Internet Explorer\System"
"NAME"="Advanced Options"
"LANGUAGE"="VBScript"
"VERSION"="1.32"
"TEXT 1"="Display Splash Screen"
"TEXT 2"="Check for IE Updates"
"TEXT 3"="Allow Auto-Setup"
"DESCRIPTION 1"="Some misc. settings of Internet Explorer you might conside changing."
"DESCRIPTION 2"=""
"AUTHOR"="Xteq Systems"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
"COMMENT 2"=""
sP="HKLM\SOFTWARE\Policies\Microsoft\Internet Explorer\Infodelivery\Restrictions\"
sV1="NoSplash" 'DW
sV2="NoUpdateCheck"
sV3="NoJITSetup"
'Called when the Plugin is started
SUB Plugin_Initialize
i=RegReadValue(sP & sV1)
if i<>1 then SetUIElement 1,true
i=RegReadValue(sP & sV2)
if i<>1 then SetUIElement 2,true
i=RegReadValue(sP & sV3)
if i<>1 then SetUIElement 3,true
END SUB
'Called when the Plugin should validate the Data the user has entered
SUB Plugin_CheckData(ElementIndex)
END SUB
'Called when the Plugin should apply the changes
SUB Plugin_Apply(ElementIndex,ElementSubIndex)
Call Wrt(1,sV1)
Call Wrt(2,sV2)
Call Wrt(3,sV3)
Call Restart()
END SUB
Sub Wrt(ITM,VAL)
b=GetUIElement(ITM)
if b=false then
Call RegWriteValue(sP & VAL,1,2)
else
s=RegReadValue(sP & VAl)
if IsEmpty(s)=false then
Call RegDeleteValue(sP & VAL)
end if
end if
end sub
'Called when the Plugin is about to be removed from memory
SUB Plugin_Terminate
END SUB